home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGIALS
/
PTUTOR2B.LZH
/
READDATA.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1988-01-15
|
501b
|
18 lines
(* Chapter 11 - Program 5 *)
program Read_Real_Data_From_A_File;
var Hot_Dog : text;
Index : byte;
Line_Number : integer;
Real1,Real2,Real3 : real;
begin (* main program *)
Assign(Hot_Dog,'REALDATA.TXT');
Reset(Hot_Dog);
for Index := 1 to 7 do begin
Readln(Hot_Dog,Line_Number,Real1,Real2,Real3);
Writeln(Line_Number:7,Real1:12:3,Real2:12:3,Real3:12:3);
end;
Close(Hot_Dog);
end. (* of main program *)